Program Pzim ; Var vet: array[1..6] of integer; soma,i:integer; Begin soma:=0; for i:=1 to 5 do begin readln (vet[i]); soma:= soma+vet[i]; end; writeln; textcolor(blue); for i:=1 to 5 do write(vet[i],' '); writeln; writeln; textcolor(27); writeln (soma); end.